﻿Imports System.ComponentModel

Public Class BuscarObj

#Region "Tipos de campos"

    Private _tiposDeCampos As New List(Of ClaseEnumObj.TiposDeCampos)
    Public WriteOnly Property TiposDeCampos() As ClaseEnumObj.TiposDeCampos
        Set(ByVal Value As ClaseEnumObj.TiposDeCampos)
            _tiposDeCampos.Add(Value)
        End Set
    End Property
    Public ReadOnly Property ListadoDeTiposDeCampos() As List(Of ClaseEnumObj.TiposDeCampos)
        Get
            Return _tiposDeCampos
        End Get
    End Property

#End Region

#Region "Combo campos"

    Private _ComboCampos As New List(Of String)
    Public WriteOnly Property ComboCampos() As String
        Set(ByVal Value As String)
            _ComboCampos.Add(Value)
        End Set
    End Property
    Public ReadOnly Property ListadoDeComboCampos() As List(Of String)
        Get
            Return _ComboCampos
        End Get
    End Property

#End Region

#Region "Nombre campos"
    Private _nombreCampos As New List(Of String)
    Public WriteOnly Property NombreCampos() As String
        Set(ByVal Value As String)
            _nombreCampos.Add(Value)
        End Set
    End Property
    Public ReadOnly Property ListadoDeNombreCampos() As List(Of String)
        Get
            Return _nombreCampos
        End Get
    End Property
#End Region

#Region "Propiedades"

    Private Shared _ElCodigoBuscado(2) As String
    Public Shared Property ElCodigoBuscado() As String()
        Get
            Return _ElCodigoBuscado
        End Get
        Set(ByVal Value As String())
            _ElCodigoBuscado = Value
        End Set
    End Property

    Private _comboIndiceElejido As Integer
    Public Property ComboIndiceElejido() As Integer
        Get
            Return _comboIndiceElejido
        End Get
        Set(ByVal Value As Integer)
            _comboIndiceElejido = Value
        End Set
    End Property

    Private _sqlIdExtrangero As String
    Public Property SqlIdExtrangero() As String
        Get
            Return _sqlIdExtrangero
        End Get
        Set(ByVal Value As String)
            _sqlIdExtrangero = Value
        End Set
    End Property

    Private _conjuntoDeDatos As New BindingList(Of Object)
    Public Property ConjuntoDeDatos() As BindingList(Of Object)
        Get
            Return _conjuntoDeDatos
        End Get
        Set(ByVal Value As BindingList(Of Object))
            _conjuntoDeDatos = Value
        End Set
    End Property

    Private _procedimientoSQL As String
    Public Property ProcedimientoSQL() As String
        Get
            Return _procedimientoSQL
        End Get
        Set(ByVal Value As String)
            _procedimientoSQL = Value
        End Set
    End Property

    Private _textoABuscar As String
    Public Property TextoABuscar() As String
        Get
            Return _textoABuscar
        End Get
        Set(ByVal Value As String)
            _textoABuscar = Value
        End Set
    End Property

    Private _tipoDeCampoABuscar As ClaseEnumObj.TiposDeCampos
    Public Property TipoDeCampoABuscar() As ClaseEnumObj.TiposDeCampos
        Get
            Return _tipoDeCampoABuscar
        End Get
        Set(ByVal Value As ClaseEnumObj.TiposDeCampos)
            _tipoDeCampoABuscar = Value
        End Set
    End Property

    Private _nombreCampoABuscar As String
    Public Property NombreCampoABuscar() As String
        Get
            Return _nombreCampoABuscar
        End Get
        Set(ByVal Value As String)
            _nombreCampoABuscar = Value
        End Set
    End Property

#End Region

End Class
